home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / rcl.def < prev    next >
Internet Message Format  |  1995-03-23  |  2KB
  1. From MWM1757%TNTECH.BITNET@VM1.NoDak.EDU Fri Apr 20 10:38:02 1990
  2. Date:         Fri, 20 Apr 90 00:56:00 CDT
  3. Reply-To: HP-48 -  HP-48sx Hand Held System <HP-48@VM1.NoDak.EDU>
  4. Sender: HP-48 -  HP-48sx Hand Held System <HP-48@VM1.NoDak.EDU>
  5. From: MWM1757%TNTECH.BITNET@VM1.NoDak.EDU
  6. Subject:      RCL Defined Key
  7. To: Multiple recipients of list HP-48 <HP-48@NDSUVM1>
  8.  
  9.         Well, we finally got our own list, so I decided to post some
  10.  stuff...I'm sorry to those of you who have serial interfaces because
  11.  this program doesn't have the special character symbols - I'm not sure
  12.  of them so I was afraid I would mess it up. Anyway, this program is
  13.  actually a program inside of a key definition.
  14.         If you are into redefining keys, like myself, you probably are
  15.  missing a RCL command for individual keys(like ASN). This makes editing
  16.  individual keys much easier...
  17.         Also, I used the TMENU command to simulate the right-shifted
  18.  modes menu. I did this because I wanted RCL right there next to ASN.
  19.  You've essentially added a command to the calculator. OK, I've rambled
  20.  enough.
  21.         One more thing - execute the program just like ASN : put the
  22.  key number location on the stack...
  23.  
  24.  
  25. << { ASN  { Rcl << RCLKEYS DUP
  26.    ROT POS IF DUP THEN 1 - GET
  27.    ELSE DROP2 END >> } STOKEYS
  28.    RCLKEYS DELKEYS MENU CST
  29.    TMENU RCLMENU STOF RCLF SF
  30.    CF FS? FC? FS?C FC?C } TMENU >>
  31.  
  32.  
  33. Then,
  34.  
  35.  
  36. 23.3
  37.  
  38. ASN
  39.  
  40. and it's all ready!
  41.  
  42.  
  43.         Like I said, I'm sorry about the format...I have a serial cable
  44.  on order...As soon as I get it I'll post bunches of stuff!
  45.  
  46.  
  47.                                                 -Mike Morrison
  48.                                                  Tenn. Tech. Univ.
  49.  
  50.  
  51.